home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / fido / NetCall20c.lha / NetCall20c / Install_NetCall < prev    next >
Text File  |  1995-06-03  |  9KB  |  335 lines
  1. ; $VER: Install_NetCall 1.4 (03.06.95)
  2.  
  3. (transcript "Installiere NetCall...")
  4.  
  5. (set default-dest "Mail:bin")
  6.  
  7. ;
  8. ; Default-Katalog (English)
  9. ;
  10.  
  11. (set #NetCallDest   (cat "Where do you wish to install NetCall? "
  12.                          "(no drawer will be created by this script)"))
  13. (set #NetCallWorking     "Installing NetCall...")
  14. (set #NetCallIcon   (cat "\nDo you wish to install the NetCall-icon?\n\n"
  15.                          "(If you execute NetCall from the shell or from "
  16.                          "scripts only, you don't need the icon)"))
  17. (set #InstallNetCallIcon "Installing NetCall-icon...")
  18. (set #NetCallCfg    (cat "Where do you wish to install the NetCall "
  19.                          "configuration file (NetCall.cfg)?"))
  20. (set #CfgMan             "Install NetCall.cfg by hand")
  21. (set #NetCallCfgExists   "NetCall.cfg already exists!\n\nOverwrite?")
  22. (set #InstallExtacy      "Installing extacy.library...")
  23. (set #ExtacyLibrary      "Where do you wish to install the extacy.library?")
  24. (set #German             "german (built-in)")
  25. (set #English            "english")
  26. (set #WhichCatalogs      "Which language-catalogs do you want to install?")
  27. (set #InstallEnglish     "Installing english catalog...")
  28. (set #CatalogDir    (cat "Where do you wish to install the "
  29.                          "language-catalog(s)?"))
  30. (set #WhichDocs          "Which documents do you want to install?")
  31. (set #EngAmigaGuide      "English Amiga-Guide")
  32. (set #EngDocumentation   "English Document (ASCII)")
  33. (set #EngTeXDVI          "English TeX DVI")
  34. (set #GerAmigaGuide      "German Amiga-Guide")
  35. (set #GerDocumentation   "German Document (ASCII)")
  36. (set #GerTeXDVI          "German TeX DVI")
  37. (set #DocsDir            "Where do you wish to install the document(s)?")
  38. (set #ByeText            "Please read the configuration-chapter in the manual...")
  39.  
  40. ;
  41. ; eingestelle Sprache
  42. ;
  43.  
  44. (if (= @language "deutsch")
  45.   (
  46.     (set #NetCallDest   (cat "In welches Verzeichnis soll NetCall installiert werden? "
  47.                              "(es wird KEINE eigene Schublade für NetCall erzeugt.)"))
  48.     (set #NetCallWorking     "Installiere NetCall...")
  49.     (set #NetCallIcon   (cat "\nMöchten Sie das NetCall-Icon installieren?\n\n"
  50.                              "(Wird NetCall nur über die Shell oder über "
  51.                              "Skripts aufgerufen, ist das Icon nicht notwendig)"))
  52.     (set #InstallNetCallIcon "Installiere NetCall-Icon...")
  53.     (set #NetCallCfg    (cat "In welches Verzeichnis soll die "
  54.                              "Konfigurations-Datei von NetCall "
  55.                              "(NetCall.cfg) kopiert werden?"))
  56.     (set #CfgMan             "NetCall.cfg manuell installieren")
  57.     (set #NetCallCfgExists   "NetCall.cfg existiert bereits!\n\nÜberschreiben?")
  58.     (set #InstallExtacy      "extacy.library installieren...")
  59.     (set #ExtacyLibrary (cat "In welches Verzeichnis soll die "
  60.                              "extacy.library kopiert werden?"))
  61.     (set #German             "deutsch (eingebaut)")
  62.     (set #English            "englisch")
  63.     (set #WhichCatalogs      "Welche Sprach-Kataloge sollen installiert werden?")
  64.     (set #InstallEnglish     "englischer NetCall.cfg installieren...")
  65.     (set #CatalogDir    (cat "In welches Verzeichnis soll(en) der/die "
  66.                              "Sprach-Katalog(e) kopiert werden?"))
  67.     (set #WhichDocs          "Welche Anleitungen von NetCall sollen installiert werden?")
  68.     (set #EngAmigaGuide      "englisches Amiga-Guide")
  69.     (set #EngDocumentation   "englische Dokumentation (ASCII)")
  70.     (set #EngTeXDVI          "englisches TeX DVI")
  71.     (set #GerAmigaGuide      "deutsches Amiga-Guide")
  72.     (set #GerDocumentation   "deutsche Dokumentation (ASCII)")
  73.     (set #GerTeXDVI          "deutsches TeX DVI")
  74.     (set #DocsDir            "In welches Verzeichnis soll(en) die Anleitung(en) kopiert werden?")
  75.     (set #ByeText            "Bitte lesen Sie das Konfigurations-Kapitel in der Dokumentation...")
  76.  
  77.   )
  78. )
  79.  
  80. ;
  81. ; NetCall-Zielverzeichnis auswählen
  82. ;
  83.  
  84. (set default-dest
  85.   (askdir
  86.     (prompt  #NetCallDest)
  87.     (default default-dest)
  88.     (help    @askdir-help)
  89.   )
  90. )
  91.  
  92. ;
  93. ; NetCall installieren
  94. ;
  95.  
  96. (working #NetCallWorking)
  97.  
  98. (if (AND (NOT (= (substr default-dest (- (strlen default-dest) 1 ) 1 ) ":" ))
  99.          (NOT (= (substr default-dest (- (strlen default-dest) 1 ) 1 ) "/" )))
  100.   ((set default-dest (cat default-dest "/"))
  101.     )
  102. )
  103.  
  104. (makeassign "NETCALL" default-dest)
  105.  
  106. (copyfiles
  107.    (prompt #NetCallWorking)
  108.    (source "NetCall") (dest default-dest)
  109. )
  110.  
  111. ;
  112. ; NetCall-Icon installieren, falls erwünscht
  113. ;
  114.  
  115. (if (askbool (prompt #NetCallIcon)
  116.              (help   @askbool-help))
  117.   (copyfiles
  118.     (prompt #InstallNetCallIcon)
  119.     (source "NetCall.info") (dest default-dest)
  120.   )
  121. )
  122.  
  123. ;
  124. ; NetCall.cfg in bestimmtes Verzeichnis kopieren
  125. ;
  126.  
  127. (set cfgpath (askchoice (prompt #NetCallCfg)
  128.                         (help   @askchoice-help)
  129.                         (choices "Mail:"
  130.                                  default-dest
  131.                                  #CfgMan)
  132.                         (default 0)
  133.               )
  134. )
  135.  
  136. (if (= cfgpath 0)
  137.  
  138.   (if (exists "Mail:NetCall.cfg")
  139.     (
  140.       (if (askbool (prompt #NetCallCfgExists)
  141.                    (help   @askbool-help))
  142.  
  143.         (copyfiles
  144.           (source "NetCall.cfg") (dest "Mail:")
  145.           (help   @copyfiles-help)
  146.         )
  147.       )
  148.     )
  149.  
  150.     (copyfiles
  151.       (source "NetCall.cfg") (dest "Mail:")
  152.       (help   @copyfiles-help)
  153.     )
  154.   )
  155.  
  156. )
  157.  
  158. (if (= cfgpath 1)
  159.  
  160.   (if (exists (tackon default-dest "NetCall.cfg"))
  161.     (
  162.       (if (askbool (prompt #NetCallCfgExists)
  163.                    (help   @askbool-help))
  164.  
  165.         (copyfiles
  166.           (source "NetCall.cfg") (dest default-dest)
  167.           (help   @copyfiles-help)
  168.         )
  169.       )
  170.     )
  171.  
  172.     (copyfiles
  173.       (source "NetCall.cfg") (dest default-dest)
  174.       (help   @copyfiles-help)
  175.     )
  176.   )
  177.  
  178. )
  179.  
  180. ;
  181. ; extacy.library kopieren
  182. ;
  183.  
  184. (if (exists "LIBS:extacy.library")
  185.   (copylib
  186.     (prompt #InstallExtacy)
  187.     (help @copylib-help)
  188.     (source "libs/extacy.library") (dest "LIBS:")
  189.     (confirm)
  190.   )
  191.   ((set libpath (askchoice (prompt #ExtacyLibrary)
  192.                         (help @askchoice-help)
  193.                         (choices "LIBS:"
  194.                                  default-dest)
  195.                         (default 0)
  196.                 )
  197.    )
  198.    (if (= libpath 0)
  199.     (copyfiles
  200.       (source "libs/extacy.library") (dest "LIBS:")
  201.     )
  202.    )
  203.    (if (= libpath 1)
  204.     (copyfiles
  205.       (source "libs/extacy.library") (dest default-dest)
  206.     )
  207.    )
  208.   )
  209. )
  210.  
  211. ;
  212. ; NetCall.catalog kopieren
  213. ;
  214.  
  215. (set catalog (askoptions (prompt  #WhichCatalogs)
  216.                          (help    @askoptions-help)
  217.                          (choices #German
  218.                                   #English)
  219.                          (default 1)
  220.              )
  221. )
  222.  
  223. (if (<> 0 (BITAND catalog 2))
  224.   (if (exists "LOCALE:catalogs/english/NetCall.catalog")
  225.     (copyfiles
  226.       (prompt #InstallEnglish)
  227.       (help   @copyfiles-help)
  228.       (source "catalogs/english/NetCall.catalog")
  229.       (dest   "LOCALE:catalogs/english")
  230.     )
  231.   ((set catpath (askchoice (prompt  #CatalogDir)
  232.                            (help    @askchoice-help)
  233.                            (choices "LOCALE:catalogs"
  234.                                     default-dest)
  235.                            (default 1)
  236.                 )
  237.    )
  238.    (if (= catpath 0)
  239.     ((if (not (exists "LOCALE:catalogs/english"))
  240.        (makedir "LOCALE:catalogs/english")
  241.      )
  242.      (copyfiles
  243.        (source "catalogs/english/NetCall.catalog")
  244.        (dest   "LOCALE:catalogs/english")
  245.      )
  246.     )
  247.    )
  248.    (if (= catpath 1)
  249.     ((if (not (exists "NETCALL:catalogs/english"))
  250.        ((makedir "NETCALL:catalogs") (makedir "NETCALL:catalogs/english"))
  251.      )
  252.      (copyfiles
  253.       (source "catalogs/english/NetCall.catalog")
  254.       (dest   "NETCALL:catalogs/english")
  255.      )
  256.     )
  257.    )
  258.   )
  259.  )
  260. )
  261.  
  262. ;
  263. ; Amiga-Guide von NetCall kopieren
  264. ;
  265.  
  266. (set docu (askoptions (prompt #WhichDocs)
  267.                       (help @askoptions-help)
  268.                       (choices #GerAmigaGuide
  269.                                #GerDocumentation
  270.                                #GerTeXDVI
  271.                                #EngAmigaGuide
  272.                                #EngDocumentation
  273.                                #EngTeXDVI)
  274.                       (default 1)
  275.            )
  276. )
  277.  
  278. (if (<> docu 0)
  279.   ((set docdest
  280.     (askdir
  281.       (prompt  #DocsDir)
  282.       (default default-dest)
  283.       (help    @askdir-help)
  284.     )
  285.    )
  286.    (if (<> 0 (BITAND docu 1))
  287.     (copyfiles
  288.       (source "Documentation/NetCall_Deutsch.guide")
  289.       (dest   docdest)
  290.       (infos)
  291.     )
  292.    )
  293.    (if (<> 0 (BITAND docu 2))
  294.     (copyfiles
  295.       (source "Documentation/NetCall_Deutsch.dok")
  296.       (dest   docdest)
  297.       (infos)
  298.     )
  299.    )
  300.    (if (<> 0 (BITAND docu 4))
  301.     (copyfiles
  302.       (source "Documentation/NetCall_Deutsch.dvi")
  303.       (dest   docdest)
  304.       (infos)
  305.     )
  306.    )
  307.    (if (<> 0 (BITAND docu 8))
  308.     (copyfiles
  309.       (source "Documentation/NetCall_English.guide")
  310.       (dest   docdest)
  311.       (infos)
  312.     )
  313.    )
  314.    (if (<> 0 (BITAND docu 16))
  315.     (copyfiles
  316.       (source "Documentation/NetCall_English.doc")
  317.       (dest   docdest)
  318.       (infos)
  319.     )
  320.    )
  321.    (if (<> 0 (BITAND docu 32))
  322.     (copyfiles
  323.       (source "Documentation/NetCall_English.dvi")
  324.       (dest   docdest)
  325.       (infos)
  326.     )
  327.    )
  328.   )
  329. )
  330.  
  331.  
  332. (set @default-dest default-dest)
  333.  
  334. (exit #ByeText)
  335.